home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_13796.txt < prev    next >
Encoding:
Text File  |  1990-08-24  |  1.9 KB  |  80 lines
  1. -- card: 13796 from stack: in.0
  2. -- bmap block id: 14001
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- part of the apple animation
  8. on dropApple
  9.   global TreeTop
  10.   set cursor to none
  11.   put the top of btn "apple" into TreeTop
  12.   -- the apple shakes before dropping
  13.   repeat 4
  14.     add 4 to TreeTop
  15.     set the top of btn "apple" to TreeTop
  16.     wait 10
  17.     subtract 4 from TreeTop
  18.     set the top of btn "apple" to TreeTop
  19.   end repeat
  20.   -- drop the apple
  21.   set the top of btn "apple" to 97
  22.   wait 10
  23.   set the top of btn "apple" to 119
  24.   wait 10
  25.   set the top of btn "apple" to 215
  26.   play "boing"
  27. end dropApple
  28.  
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=359 top=78 right=119 bottom=398
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 9317 / 9317
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: apple
  43.  
  44.  
  45. -- part 2 (button)
  46. -- low flags: 00
  47. -- high flags: 0000
  48. -- rect: left=474 top=195 right=224 bottom=506
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 24471 / 24471
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: MapBtn
  57. ----- HyperTalk script -----
  58. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  59. -- so the Map can hilite the cd the user came from.
  60.  
  61. on mouseUp
  62.   global DisSpeed, CameFrom, MapMode
  63.   set the hilite of me to true
  64.   lock Screen
  65.   set the hilite of me to false
  66.   put "Introduction to" into CameFrom
  67.   put last char of the icon of bg btn "section" into sectionNum
  68.   if sectionNum > 3 then put 2 into sectionNum
  69.   put "section" && sectionNum & ":" into SubCd
  70.   visual DisSpeed
  71.   if MapMode is "graph" then
  72.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  73.     HiliteMap
  74.   else
  75.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  76.   end if
  77.   unlock screen with DisSpeed
  78. end mouseUp
  79.  
  80.